home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / Itch / loading.dcr / 00003_World Parent.ls < prev    next >
Encoding:
Text File  |  1999-03-07  |  751 b   |  41 lines
  1. property state, ballObj, strokeObj, browserLoaded, delayTimer
  2.  
  3. on new me
  4.   browserLoaded = preloadNetThing(the pathName & "itch_Browser.dcr")
  5.   CueDelayTimer(me, 60 * 8)
  6.   me.state = #CheckEvent
  7.   return me
  8. end
  9.  
  10. on initWorld me
  11.   ballObj = new(script("BallManger Parent"))
  12.   strokeObj = new(script("Stroke Parent"))
  13. end
  14.  
  15. on Updateloop me
  16.   CheckState(me)
  17.   CheckState(ballObj)
  18.   CheckState(strokeObj)
  19. end
  20.  
  21. on CheckState me
  22.   case me.state of
  23.     #default:
  24.     #CheckEvent:
  25.       CheckEvent(me)
  26.   end case
  27. end
  28.  
  29. on CheckEvent me
  30.   if the mouseDown then
  31.     ballObj.state = #setUp
  32.   end if
  33.   if the timer > me.delayTimer then
  34.     play movie the pathName & "itch_Browser.dir"
  35.   end if
  36. end
  37.  
  38. on CueDelayTimer me, aNum
  39.   me.delayTimer = the timer + aNum
  40. end
  41.